home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48hor1
/
train.src
< prev
next >
Wrap
Text File
|
1991-10-14
|
1KB
|
35 lines
%%HP: T(3)A(D)F(.);
@ TRAIN, by Jeremy Smith
\<< # BFh # 40h BLANK { # 3Ch # 0h } LCD\-> REPL
PICT STO { # 3Ch # 0h } PVIEW DEPTH 190 \-> depth x
\<<
WHILE x
REPEAT PICT x R\->B # 7h 2 \->LIST
@ ensure the next GROB line hex numbers are on one line with no spaces!
GROB 60 7 00E3000000000000E163000000000000CC6100CFFF8FFF30CFF5F7CA
AA8AAA20EFF7F7DFFBAFFF20FFFFFFFFFFFFFF70CCC1630303060C00
REPL
IF RAND 9 * 5 - R\->B B\->R
THEN
IF DEPTH depth - DUP
THEN RAND * ROLL PIXOFF
ELSE DROP
END
END 'x' DECR DROP
IF 1 FS?C
THEN x 4 + R\->B # 7h 2 \->LIST PIXON
x 6 + R\->B # 5h 2 \->LIST DUP PIXON
x 7 + R\->B # 5h 2 \->LIST DUP PIXON
END
IF RAND 10 * 9.45 - R\->B B\->R
THEN 2112 DUP .28 BEEP .2 WAIT .4 BEEP
END
IF RAND 9 * 7.7 - R\->B B\->R
THEN 1 SF x 4 + R\->B # 7h 2 \->LIST PIXON
x 4 + R\->B # 6h 2 \->LIST DUP PIXON
x 5 + R\->B # 6h 2 \->LIST DUP PIXON
END
END DEPTH depth - DROPN 1 CF
\>>
\>>